home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / cocktail / reuse.lha / reuse / m2c / StdIO.c < prev    next >
C/C++ Source or Header  |  1992-08-18  |  5KB  |  348 lines
  1. #include "SYSTEM_.h"
  2.  
  3. #ifndef DEFINITION_IO
  4. #include "IO.h"
  5. #endif
  6.  
  7. #ifndef DEFINITION_IO
  8. #include "IO.h"
  9. #endif
  10.  
  11. #ifndef DEFINITION_StdIO
  12. #include "StdIO.h"
  13. #endif
  14.  
  15.  
  16.  
  17.  
  18. void StdIO_ReadClose
  19. # ifdef __STDC__
  20. ()
  21. # else
  22. ()
  23. # endif
  24. {
  25.   IO_ReadClose((System_tFile)IO_StdInput);
  26. }
  27.  
  28. INTEGER StdIO_Read
  29. # ifdef __STDC__
  30. (ADDRESS Buffer, CARDINAL Size)
  31. # else
  32. (Buffer, Size)
  33. ADDRESS Buffer;
  34. CARDINAL Size;
  35. # endif
  36. {
  37.   return IO_Read((System_tFile)IO_StdInput, Buffer, Size);
  38. }
  39.  
  40. CHAR StdIO_ReadC
  41. # ifdef __STDC__
  42. ()
  43. # else
  44. ()
  45. # endif
  46. {
  47.   return IO_ReadC((System_tFile)IO_StdInput);
  48. }
  49.  
  50. INTEGER StdIO_ReadI
  51. # ifdef __STDC__
  52. ()
  53. # else
  54. ()
  55. # endif
  56. {
  57.   return IO_ReadI((System_tFile)IO_StdInput);
  58. }
  59.  
  60. REAL StdIO_ReadR
  61. # ifdef __STDC__
  62. ()
  63. # else
  64. ()
  65. # endif
  66. {
  67.   return IO_ReadR((System_tFile)IO_StdInput);
  68. }
  69.  
  70. BOOLEAN StdIO_ReadB
  71. # ifdef __STDC__
  72. ()
  73. # else
  74. ()
  75. # endif
  76. {
  77.   return IO_ReadB((System_tFile)IO_StdInput);
  78. }
  79.  
  80. INTEGER StdIO_ReadN
  81. # ifdef __STDC__
  82. (INTEGER Base)
  83. # else
  84. (Base)
  85. INTEGER Base;
  86. # endif
  87. {
  88.   return IO_ReadN((System_tFile)IO_StdInput, Base);
  89. }
  90.  
  91. void StdIO_ReadS
  92. # ifdef __STDC__
  93. (CHAR s[], LONGCARD O_1)
  94. # else
  95. (s, O_1)
  96. CHAR s[];
  97. LONGCARD O_1;
  98. # endif
  99. {
  100.   IO_ReadS((System_tFile)IO_StdInput, s, O_1);
  101. }
  102.  
  103. SHORTINT StdIO_ReadShort
  104. # ifdef __STDC__
  105. ()
  106. # else
  107. ()
  108. # endif
  109. {
  110.   return IO_ReadShort((System_tFile)IO_StdInput);
  111. }
  112.  
  113. LONGINT StdIO_ReadLong
  114. # ifdef __STDC__
  115. ()
  116. # else
  117. ()
  118. # endif
  119. {
  120.   return IO_ReadLong((System_tFile)IO_StdInput);
  121. }
  122.  
  123. CARDINAL StdIO_ReadCard
  124. # ifdef __STDC__
  125. ()
  126. # else
  127. ()
  128. # endif
  129. {
  130.   return IO_ReadCard((System_tFile)IO_StdInput);
  131. }
  132.  
  133. void StdIO_ReadNl
  134. # ifdef __STDC__
  135. ()
  136. # else
  137. ()
  138. # endif
  139. {
  140.   IO_ReadNl((System_tFile)IO_StdInput);
  141. }
  142.  
  143. void StdIO_UnRead
  144. # ifdef __STDC__
  145. ()
  146. # else
  147. ()
  148. # endif
  149. {
  150.   IO_UnRead((System_tFile)IO_StdInput);
  151. }
  152.  
  153. BOOLEAN StdIO_EndOfLine
  154. # ifdef __STDC__
  155. ()
  156. # else
  157. ()
  158. # endif
  159. {
  160.   return IO_EndOfLine((System_tFile)IO_StdInput);
  161. }
  162.  
  163. BOOLEAN StdIO_EndOfFile
  164. # ifdef __STDC__
  165. ()
  166. # else
  167. ()
  168. # endif
  169. {
  170.   return IO_EndOfFile((System_tFile)IO_StdInput);
  171. }
  172.  
  173. void StdIO_WriteClose
  174. # ifdef __STDC__
  175. ()
  176. # else
  177. ()
  178. # endif
  179. {
  180.   IO_WriteClose((System_tFile)IO_StdOutput);
  181. }
  182.  
  183. void StdIO_WriteFlush
  184. # ifdef __STDC__
  185. ()
  186. # else
  187. ()
  188. # endif
  189. {
  190.   IO_WriteFlush((System_tFile)IO_StdOutput);
  191. }
  192.  
  193. INTEGER StdIO_Write
  194. # ifdef __STDC__
  195. (ADDRESS Buffer, CARDINAL Size)
  196. # else
  197. (Buffer, Size)
  198. ADDRESS Buffer;
  199. CARDINAL Size;
  200. # endif
  201. {
  202.   return IO_Write((System_tFile)IO_StdOutput, Buffer, (LONGINT)Size);
  203. }
  204.  
  205. void StdIO_WriteC
  206. # ifdef __STDC__
  207. (CHAR c)
  208. # else
  209. (c)
  210. CHAR c;
  211. # endif
  212. {
  213.   IO_WriteC((System_tFile)IO_StdOutput, c);
  214. }
  215.  
  216. void StdIO_WriteI
  217. # ifdef __STDC__
  218. (INTEGER n, CARDINAL FieldWidth)
  219. # else
  220. (n, FieldWidth)
  221. INTEGER n;
  222. CARDINAL FieldWidth;
  223. # endif
  224. {
  225.   IO_WriteI((System_tFile)IO_StdOutput, n, FieldWidth);
  226. }
  227.  
  228. void StdIO_WriteR
  229. # ifdef __STDC__
  230. (REAL n, CARDINAL Before, CARDINAL After, CARDINAL Exp)
  231. # else
  232. (n, Before, After, Exp)
  233. REAL n;
  234. CARDINAL Before, After, Exp;
  235. # endif
  236. {
  237.   IO_WriteR((System_tFile)IO_StdOutput, n, Before, After, Exp);
  238. }
  239.  
  240. void StdIO_WriteB
  241. # ifdef __STDC__
  242. (BOOLEAN b)
  243. # else
  244. (b)
  245. BOOLEAN b;
  246. # endif
  247. {
  248.   IO_WriteB((System_tFile)IO_StdOutput, b);
  249. }
  250.  
  251. void StdIO_WriteN
  252. # ifdef __STDC__
  253. (LONGCARD n, CARDINAL FieldWidth, CARDINAL Base)
  254. # else
  255. (n, FieldWidth, Base)
  256. LONGCARD n;
  257. CARDINAL FieldWidth, Base;
  258. # endif
  259. {
  260.   IO_WriteN((System_tFile)IO_StdOutput, n, FieldWidth, Base);
  261. }
  262.  
  263. void StdIO_WriteS
  264. # ifdef __STDC__
  265. (CHAR s[], LONGCARD O_2)
  266. # else
  267. (s, O_2)
  268. CHAR s[];
  269. LONGCARD O_2;
  270. # endif
  271. {
  272.   OPEN_ARRAY_LOCALS
  273.  
  274.   ALLOC_OPEN_ARRAYS(O_2 * sizeof(CHAR), 1)
  275.   COPY_OPEN_ARRAY(s, O_2, CHAR)
  276.   IO_WriteS((System_tFile)IO_StdOutput, s, O_2);
  277.   FREE_OPEN_ARRAYS
  278. }
  279.  
  280. void StdIO_WriteShort
  281. # ifdef __STDC__
  282. (SHORTINT n, CARDINAL FieldWidth)
  283. # else
  284. (n, FieldWidth)
  285. SHORTINT n;
  286. CARDINAL FieldWidth;
  287. # endif
  288. {
  289.   IO_WriteShort((System_tFile)IO_StdOutput, n, FieldWidth);
  290. }
  291.  
  292. void StdIO_WriteLong
  293. # ifdef __STDC__
  294. (LONGINT n, CARDINAL FieldWidth)
  295. # else
  296. (n, FieldWidth)
  297. LONGINT n;
  298. CARDINAL FieldWidth;
  299. # endif
  300. {
  301.   IO_WriteLong((System_tFile)IO_StdOutput, n, FieldWidth);
  302. }
  303.  
  304. void StdIO_WriteCard
  305. # ifdef __STDC__
  306. (CARDINAL n, CARDINAL FieldWidth)
  307. # else
  308. (n, FieldWidth)
  309. CARDINAL n;
  310. CARDINAL FieldWidth;
  311. # endif
  312. {
  313.   IO_WriteCard((System_tFile)IO_StdOutput, n, FieldWidth);
  314. }
  315.  
  316. void StdIO_WriteNl
  317. # ifdef __STDC__
  318. ()
  319. # else
  320. ()
  321. # endif
  322. {
  323.   IO_WriteNl((System_tFile)IO_StdOutput);
  324. }
  325.  
  326. void StdIO_CloseIO
  327. # ifdef __STDC__
  328. ()
  329. # else
  330. ()
  331. # endif
  332. {
  333.   IO_WriteFlush((System_tFile)IO_StdOutput);
  334. }
  335.  
  336. void BEGIN_StdIO()
  337. {
  338.   static BOOLEAN has_been_called = FALSE;
  339.  
  340.   if (!has_been_called) {
  341.     has_been_called = TRUE;
  342.  
  343.     BEGIN_IO();
  344.     BEGIN_IO();
  345.  
  346.   }
  347. }
  348.